home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASCSRC.ZIP / READINTS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  921 b   |  39 lines
  1.                                 (* Chapter 11 - Program 4 *)
  2. program Read_Integers_From_File;
  3.  
  4. var Cupcake : text;
  5.     Index   : byte;
  6.     Var1,Var2,Var3,Var4,Var5 : integer;
  7.  
  8. begin
  9.    Assign(Cupcake,'INTDATA.TXT');
  10.    Reset(Cupcake);
  11.  
  12.    for Index := 1 to 5 do begin
  13.       Read(Cupcake,Var1,Var2,Var3);
  14.       Writeln(Var1:6,Var2:6,Var3:6);
  15.    end;
  16.  
  17.    Reset(Cupcake);
  18.    Writeln;
  19.    for Index := 1 to 5 do begin
  20.       Readln(Cupcake,Var1,Var2,Var3);
  21.       Writeln(Var1:6,Var2:6,Var3:6);
  22.    end;
  23.  
  24.    Reset(Cupcake);
  25.    Writeln;
  26.    for Index := 1 to 5 do begin
  27.       Read(Cupcake,Var1,Var2,Var3,Var4,Var5);
  28.       Writeln(Var1:6,Var2:6,Var3:6,Var4:6,Var5:6);
  29.    end;
  30.  
  31.    Reset(Cupcake);
  32.    Writeln;
  33.    for Index := 1 to 5 do begin
  34.       Readln(Cupcake,Var1,Var2,Var3,Var4,Var5);
  35.       Writeln(Var1:6,Var2:6,Var3:6,Var4:6,Var5:6);
  36.    end;
  37.    Close(Cupcake);
  38. end. (* of main program *)
  39.